home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
TEXT-MOD.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
4KB
|
49 lines
;;; compiled by @win386 on Sat Mar 13 14:33:45 1993
;;; from file c:/src/lucid-19.4/lisp/modes/text-mod.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defvar text-mode-syntax-table nil "\
Syntax table used while in text mode.")
(defvar text-mode-abbrev-table nil "\
Abbrev table used while in text mode.")
(byte-code "└┴┬\"ê¼ò─ ┼╞╟#ê┼╚╟#ê┼╔╩#ê┬ç" [define-abbrev-table text-mode-abbrev-table nil text-mode-syntax-table make-syntax-table modify-syntax-entry 34 ". " 92 39 "w "] 4)
(defvar text-mode-map nil "\
Keymap for Text mode.
Many other modes, such as Mail mode, Outline mode and Indented Text mode,
inherit all the commands defined in this map.")
(byte-code "¼ò┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┴ç" [text-mode-map make-sparse-keymap define-key " " tab-to-tab-stop "s" center-line "S" center-paragraph] 4)
(fset 'text-mode #[nil "└ ê┴\n!ê├┼╔\n!ê╦╠!ç" [kill-all-local-variables use-local-map text-mode-map "Text" mode-name text-mode major-mode text-mode-abbrev-table local-abbrev-table set-syntax-table text-mode-syntax-table run-hooks text-mode-hook] 2 "\
Major mode for editing text intended for humans to read. Special commands:\\{text-mode-map}
Turning on text-mode calls the value of the variable `text-mode-hook',
if that value is non-nil." nil])
(defvar indented-text-mode-map nil "\
Keymap for Indented Text mode.
All the commands defined in Text mode are inherited unless overridden.")
(byte-code "¼è┴\n!├─┼#ê┴ç" [indented-text-mode-map copy-keymap text-mode-map define-key " " indent-relative] 4)
(fset 'indented-text-mode #[nil "└ ê┴\n!ê├─┼\"ê╟!ê╔╩!ê╦\n┴!ê═╧╤╥!ç" [kill-all-local-variables use-local-map text-mode-map define-abbrev-table text-mode-abbrev-table nil local-abbrev-table set-syntax-table text-mode-syntax-table make-local-variable indent-line-function indent-relative-maybe indented-text-mode-map "Indented Text" mode-name indented-text-mode major-mode run-hooks text-mode-hook] 3 "\
Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
Turning on indented-text-mode calls the value of the variable `text-mode-hook',
if that value is non-nil." nil])
(fset 'change-log-mode #[nil "└ ê┴├┼╞!ê╟╚╔!ç" [indented-text-mode 8 left-margin 74 fill-column make-local-variable version-control never run-hooks change-log-mode-hook] 2 "\
Major mode for editing ChangeLog files. See M-x add-change-log-entry.
Almost the same as Indented Text mode, but prevents numeric backups
and sets `left-margin' to 8 and `fill-column' to 74." nil])
(fset 'center-paragraph #[nil "è└ ên¼ä┴┬!ê`─ ê┼`\"*ç" [forward-paragraph newline 1 end backward-paragraph center-region] 3 "\
Center each nonblank line in the paragraph at or after point.
See center-line for more info." nil])
(fset 'center-region #[(from to) " V½ç \n)èî }êbêm?¡æè├─wêl)¼â┼ ê╞yê¬k*ç" [from to tem " " nil center-line 1] 2 "\
Center each nonblank line starting in the region.
See center-line for more info." "r"])
(fset 'center-line #[nil "è└┬yê├ ê└ê├ êi┬yêZ Z╞Ñ\\j*ç" [nil line-length 0 delete-horizontal-space left-margin fill-column 2] 3 "\
Center the line point is on, within the width specified by `fill-column'.
This means adjusting the indentation so that it equals
the distance between the end of the text and `fill-column'." nil])